home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / fcmacros.lha / Make-Font-Reference next >
Text File  |  1994-04-12  |  1KB  |  52 lines
  1. /* $Id: $ */
  2. /**********************************************************************/
  3. /*
  4.  * Final Copy II Arexx Macro - Make-Font-Reference
  5.  *
  6.  * Creates a table with all characters of a font
  7.  * and how to get them.
  8.  *
  9.  * Requires: Final Copy II
  10.  * Author: Stefan Winterstein (winter@cs.uni-sb.de)
  11.  * Status: Public Domain
  12.  *
  13.  */
  14. /**********************************************************************/
  15. OPTIONS RESULTS
  16.  
  17. /*
  18.  * Here is the font you want to see:
  19.  */
  20. SymbolFont = "SWOLFonts:Symbol"
  21. StandardFont = "SoftSans"
  22.  
  23. chars.1 = "abcdefghijklmnopqrstuvwxyz1234567890ß\<,.-äöü#+[]/*"
  24. chars.2 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ!" || '"' || "§$%&/()=?|>;:_ÄÖÜ^*{}/*" /* Shift */
  25. chars.3 = "º/*ð©   ¡  £¸­ø¶å®ßþµª°×±¤¹@³°¼½¾·«»-\<,./';[#][]/*" /* Alt */
  26. chars.4 = "ƺÇЩ   ¦  £¿¯Ø¶Å®§Þµª°÷¬¥!²#¢%^&*()_|><>?"||'"'||":{^}{}/*" /* Shift Alt */
  27.  
  28. qual.1 = ""
  29. qual.2 = "Shift-"
  30. qual.3 = "Alt-"
  31. qual.4 = "Alt-Sh-"
  32.  
  33. TAB = '09'X
  34.  
  35. /* trace ?r */
  36.  
  37. DO pos=1 TO LENGTH(chars.1)
  38.     DO i=1 TO 4
  39.     char = SUBSTR(chars.i, pos, 1)
  40.     Font SymbolFont
  41.     FontSize 13
  42.     Type char||TAB
  43.     Font StandardFont
  44.     FontSize 10
  45.     Type qual.i || substr(chars.1, pos, 1)
  46.     Type TAB||TAB
  47.     END
  48.     Backspace
  49.     Backspace
  50.     NewParagraph
  51. END
  52.